Complete Internet Archive/Complete Internet Archive.iso/E-Mail/tmc325.exe/data.z/PGPsetup.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1996-12-12 | 19KB | 626 lines

object Form1: TForm1
  Left = 74
  Top = 108
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'PGP Setup Wizard'
  ClientHeight = 339
  ClientWidth = 423
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object LMDLabel5: TLMDLabel
    Left = 77
    Top = 6
    Width = 202
    Height = 30
    Caption = 'PGP not installed...'
    Font.Color = clBlack
    Font.Height = -24
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    FontFx.LightColor = clWhite
    FontFx.Style = tdPColorRaised
    ParentFont = False
    Transparent = True
  end
  object Label1: TLabel
    Left = 136
    Top = 278
    Width = 260
    Height = 13
    Caption = 'Press here to obtain PGP from TransSoft'#39's homepage...'
    Visible = False
  end
  object Label6: TLabel
    Left = 136
    Top = 298
    Width = 226
    Height = 13
    Caption = 'Press here to obtain PGP from MIT homepage...'
    Visible = False
  end
  object Button3: TButton
    Left = 77
    Top = 295
    Width = 55
    Height = 19
    Caption = '&MIT'
    TabOrder = 9
    Visible = False
    OnClick = Button3Click
  end
  object Button2: TButton
    Left = 77
    Top = 276
    Width = 55
    Height = 19
    Caption = '&TransSoft'
    TabOrder = 8
    Visible = False
    OnClick = Button2Click
  end
  object Button1: TButton
    Left = 206
    Top = 318
    Width = 75
    Height = 15
    Caption = 'OK'
    TabOrder = 7
    Visible = False
    OnClick = Button1Click
  end
  object Memo2: TMemo
    Left = 75
    Top = 31
    Width = 337
    Height = 244
    Lines.Strings = (

        'The PGP-system has not been installed on to your system. This mu' +
        'st '

        'be done prior to setting up the PGP facilities of TMC Pro. You c' +
        'an '
      'access PGP at these locations:'
      ''
      'If you live in the U.S. or Canada please refer to this page:'
      '      http://web.mit.edu/network/pgp.html'
      '      Please choose pgp version 2.6'
      ''
      'If you live outside the US and Canda, please download the '
      'International  version from our homepage:'
      '      http://www.centrum.is/~bhg'
      '      Choose either one of these:'
      '             pgp26i.zip                  (DOS version, 16 bit)'
      '             pgp26ix.zip                (DOS version, 32 bit)'
      ''
      'After install, Try again to access PGP mode in the mailer.'
      ''
      '      TransSoft Ltd.')
    ReadOnly = True
    TabOrder = 6
    Visible = False
  end
  object PGPpages: TPageControl
    Left = 0
    Top = 0
    Width = 423
    Height = 339
    ActivePage = Produce
    Align = alClient
    TabHeight = 15
    TabOrder = 0
    object Intro: TTabSheet
      Caption = 'Notification'
      TabVisible = False
      object LMDLabel2: TLMDLabel
        Left = 77
        Top = 25
        Width = 90
        Height = 30
        Caption = 'Action...'
        Font.Color = clBlack
        Font.Height = -24
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        FontFx.LightColor = clWhite
        FontFx.Style = tdPColorRaised
        ParentFont = False
        Transparent = True
      end
      object Memo1: TMemo
        Left = 77
        Top = 72
        Width = 320
        Height = 89
        Lines.Strings = (
          'PGP (Pretty Good Privacy) is installed on to your computer. '
          'Howevere the system needs to know a few things to be able to '

            'use it. Here, in the next few steps, we will set this up for you' +
            '.'
          ''
          'Here below please select whether or not you want to keep your '
          'old private keys or create new set.')
        ReadOnly = True
        TabOrder = 0
      end
      object CheckBox1: TCheckBox
        Left = 94
        Top = 218
        Width = 177
        Height = 17
        Caption = 'Keep previous set of keys'
        State = cbChecked
        TabOrder = 1
      end
    end
    object Produce: TTabSheet
      Caption = 'Prepare Keys'
      TabVisible = False
      object LMDLabel4: TLMDLabel
        Left = 73
        Top = 25
        Width = 209
        Height = 30
        Caption = ' Use previous keys...'
        Font.Color = clBlack
        Font.Height = -24
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        FontFx.LightColor = clWhite
        FontFx.Style = tdPColorRaised
        ParentFont = False
        Transparent = True
      end
      object Label2: TLabel
        Left = 115
        Top = 159
        Width = 58
        Height = 13
        Alignment = taRightJustify
        Caption = 'Passphrase:'
      end
      object Label3: TLabel
        Left = 77
        Top = 186
        Width = 96
        Height = 13
        Alignment = taRightJustify
        Caption = 'Private key location:'
      end
      object Label4: TLabel
        Left = 75
        Top = 213
        Width = 98
        Height = 13
        Alignment = taRightJustify
        Caption = 'Public Keys location:'
      end
      object SpeedButton1: TSpeedButton
        Left = 380
        Top = 182
        Width = 24
        Height = 22
        Glyph.Data = {
          36050000424D3605000000000000360400002800000010000000100000000100
          0800000000000001000000000000000000000000000000000000000000004000
          000080000000FF000000002000004020000080200000FF200000004000004040
          000080400000FF400000006000004060000080600000FF600000008000004080
          000080800000FF80000000A0000040A0000080A00000FFA0000000C0000040C0
          000080C00000FFC0000000FF000040FF000080FF0000FFFF0000000020004000
          200080002000FF002000002020004020200080202000FF202000004020004040
          200080402000FF402000006020004060200080602000FF602000008020004080
          200080802000FF80200000A0200040A0200080A02000FFA0200000C0200040C0
          200080C02000FFC0200000FF200040FF200080FF2000FFFF2000000040004000
          400080004000FF004000002040004020400080204000FF204000004040004040
          400080404000FF404000006040004060400080604000FF604000008040004080
          400080804000FF80400000A0400040A0400080A04000FFA0400000C0400040C0
          400080C04000FFC0400000FF400040FF400080FF4000FFFF4000000060004000
          600080006000FF006000002060004020600080206000FF206000004060004040
          600080406000FF406000006060004060600080606000FF606000008060004080
          600080806000FF80600000A0600040A0600080A06000FFA0600000C0600040C0
          600080C06000FFC0600000FF600040FF600080FF6000FFFF6000000080004000
          800080008000FF008000002080004020800080208000FF208000004080004040
          800080408000FF408000006080004060800080608000FF608000008080004080
          800080808000FF80800000A0800040A0800080A08000FFA0800000C0800040C0
          800080C08000FFC0800000FF800040FF800080FF8000FFFF80000000A0004000
          A0008000A000FF00A0000020A0004020A0008020A000FF20A0000040A0004040
          A0008040A000FF40A0000060A0004060A0008060A000FF60A0000080A0004080
          A0008080A000FF80A00000A0A00040A0A00080A0A000FFA0A00000C0A00040C0
          A00080C0A000FFC0A00000FFA00040FFA00080FFA000FFFFA0000000C0004000
          C0008000C000FF00C0000020C0004020C0008020C000FF20C0000040C0004040
          C0008040C000FF40C0000060C0004060C0008060C000FF60C0000080C0004080
          C0008080C000FF80C00000A0C00040A0C00080A0C000FFA0C00000C0C00040C0
          C00080C0C000FFC0C00000FFC00040FFC00080FFC000FFFFC0000000FF004000
          FF008000FF00FF00FF000020FF004020FF008020FF00FF20FF000040FF004040
          FF008040FF00FF40FF000060FF004060FF008060FF00FF60FF000080FF004080
          FF008080FF00FF80FF0000A0FF0040A0FF0080A0FF00FFA0FF0000C0FF0040C0
          FF0080C0FF00FFC0FF0000FFFF0040FFFF0080FFFF00FFFFFF00FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFF6D6D6D6D6D6D6D6D6D6D6D6D6DFFFFD9D9D9D9
          D9D9D9D9D9D9D9D9D96DFFFFD9FFFDFDFDFDFDFDFDFDFDD96D6DFFD9FFFDFDFD
          FDFDFDFDFDFDFDD96D6DFFD9FFFDFDFDFDFDFDFDFDFDD96D916DD9FFFDFDFDFD
          FDFDFDFDFDFDD96D916DD9FFFDFDFDFDFDFDFDFDFDD96D91916DD9FFFFFFFFFF
          FFFFFFFFFFD96D91916DFFD9DADADADADADADADADADA91F9916DFFD9F9F9F9F9
          F9F9F9F9F9F9F9F9916DFFD9F9F9F9F9F9F9D9D9D9D9D9D991FFFFFFD9F9F9F9
          F9D991FFFFFFFFFFFFFFFFFFFFD9D9D9D991FFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 380
        Top = 209
        Width = 24
        Height = 22
        Glyph.Data = {
          36050000424D3605000000000000360400002800000010000000100000000100
          0800000000000001000000000000000000000000000000000000000000004000
          000080000000FF000000002000004020000080200000FF200000004000004040
          000080400000FF400000006000004060000080600000FF600000008000004080
          000080800000FF80000000A0000040A0000080A00000FFA0000000C0000040C0
          000080C00000FFC0000000FF000040FF000080FF0000FFFF0000000020004000
          200080002000FF002000002020004020200080202000FF202000004020004040
          200080402000FF402000006020004060200080602000FF602000008020004080
          200080802000FF80200000A0200040A0200080A02000FFA0200000C0200040C0
          200080C02000FFC0200000FF200040FF200080FF2000FFFF2000000040004000
          400080004000FF004000002040004020400080204000FF204000004040004040
          400080404000FF404000006040004060400080604000FF604000008040004080
          400080804000FF80400000A0400040A0400080A04000FFA0400000C0400040C0
          400080C04000FFC0400000FF400040FF400080FF4000FFFF4000000060004000
          600080006000FF006000002060004020600080206000FF206000004060004040
          600080406000FF406000006060004060600080606000FF606000008060004080
          600080806000FF80600000A0600040A0600080A06000FFA0600000C0600040C0
          600080C06000FFC0600000FF600040FF600080FF6000FFFF6000000080004000
          800080008000FF008000002080004020800080208000FF208000004080004040
          800080408000FF408000006080004060800080608000FF608000008080004080
          800080808000FF80800000A0800040A0800080A08000FFA0800000C0800040C0
          800080C08000FFC0800000FF800040FF800080FF8000FFFF80000000A0004000
          A0008000A000FF00A0000020A0004020A0008020A000FF20A0000040A0004040
          A0008040A000FF40A0000060A0004060A0008060A000FF60A0000080A0004080
          A0008080A000FF80A00000A0A00040A0A00080A0A000FFA0A00000C0A00040C0
          A00080C0A000FFC0A00000FFA00040FFA00080FFA000FFFFA0000000C0004000
          C0008000C000FF00C0000020C0004020C0008020C000FF20C0000040C0004040
          C0008040C000FF40C0000060C0004060C0008060C000FF60C0000080C0004080
          C0008080C000FF80C00000A0C00040A0C00080A0C000FFA0C00000C0C00040C0
          C00080C0C000FFC0C00000FFC00040FFC00080FFC000FFFFC0000000FF004000
          FF008000FF00FF00FF000020FF004020FF008020FF00FF20FF000040FF004040
          FF008040FF00FF40FF000060FF004060FF008060FF00FF60FF000080FF004080
          FF008080FF00FF80FF0000A0FF0040A0FF0080A0FF00FFA0FF0000C0FF0040C0
          FF0080C0FF00FFC0FF0000FFFF0040FFFF0080FFFF00FFFFFF00FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFF6D6D6D6D6D6D6D6D6D6D6D6D6DFFFFD9D9D9D9
          D9D9D9D9D9D9D9D9D96DFFFFD9FFFDFDFDFDFDFDFDFDFDD96D6DFFD9FFFDFDFD
          FDFDFDFDFDFDFDD96D6DFFD9FFFDFDFDFDFDFDFDFDFDD96D916DD9FFFDFDFDFD
          FDFDFDFDFDFDD96D916DD9FFFDFDFDFDFDFDFDFDFDD96D91916DD9FFFFFFFFFF
          FFFFFFFFFFD96D91916DFFD9DADADADADADADADADADA91F9916DFFD9F9F9F9F9
          F9F9F9F9F9F9F9F9916DFFD9F9F9F9F9F9F9D9D9D9D9D9D991FFFFFFD9F9F9F9
          F9D991FFFFFFFFFFFFFFFFFFFFD9D9D9D991FFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        OnClick = SpeedButton2Click
      end
      object Edit2: TEdit
        Left = 175
        Top = 155
        Width = 205
        Height = 21
        PasswordChar = '*'
        TabOrder = 0
        OnExit = Edit2Exit
      end
      object Edit3: TEdit
        Left = 175
        Top = 182
        Width = 205
        Height = 21
        TabOrder = 1
        OnExit = Edit3Exit
      end
      object Edit4: TEdit
        Left = 175
        Top = 209
        Width = 205
        Height = 21
        TabOrder = 2
        OnExit = Edit4Exit
      end
    end
    object Various: TTabSheet
      Caption = 'Various'
      TabVisible = False
      object Label5: TLabel
        Left = 95
        Top = 232
        Width = 23
        Height = 13
        Caption = 'Click'
        Transparent = True
      end
      object Label8: TLabel
        Left = 123
        Top = 232
        Width = 25
        Height = 13
        Caption = 'next'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label9: TLabel
        Left = 152
        Top = 232
        Width = 9
        Height = 13
        Caption = 'or'
        Transparent = True
      end
      object Label10: TLabel
        Left = 166
        Top = 232
        Width = 31
        Height = 13
        Caption = 'finish'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label11: TLabel
        Left = 201
        Top = 232
        Width = 122
        Height = 13
        Caption = 'to create install TMC-PGP'
        Transparent = True
      end
      object LMDLabel1: TLMDLabel
        Left = 77
        Top = 25
        Width = 180
        Height = 30
        Caption = 'Almost finished...'
        Font.Color = clBlack
        Font.Height = -24
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        FontFx.LightColor = clWhite
        FontFx.Style = tdPColorRaised
        ParentFont = False
        Transparent = True
      end
      object Label15: TLabel
        Left = 94
        Top = 99
        Width = 279
        Height = 42
        AutoSize = False
        Caption =
          'The wizard will generate identical keysystem for it'#39's own use. P' +
          'lease make sure these information are correct before continuing.'
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object Label16: TLabel
        Left = 96
        Top = 154
        Width = 38
        Height = 13
        Caption = 'Label16'
      end
      object Label17: TLabel
        Left = 96
        Top = 169
        Width = 38
        Height = 13
        Caption = 'Label16'
      end
      object Label18: TLabel
        Left = 96
        Top = 185
        Width = 38
        Height = 13
        Caption = 'Label16'
      end
      object Label19: TLabel
        Left = 96
        Top = 202
        Width = 38
        Height = 13
        Caption = 'Label16'
      end
    end
    object CreateNew: TTabSheet
      Caption = 'CreateNew'
      TabVisible = False
      object LMDLabel6: TLMDLabel
        Left = 76
        Top = 25
        Width = 249
        Height = 30
        Caption = 'Create new set of keys...'
        Font.Color = clBlack
        Font.Height = -24
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        FontFx.LightColor = clWhite
        FontFx.Style = tdPColorRaised
        ParentFont = False
        Transparent = True
      end
      object Label12: TLabel
        Left = 94
        Top = 118
        Width = 279
        Height = 44
        AutoSize = False
        Caption =
          'The wizard will open an MSDOS window to run PGP. Please follow t' +
          'he instructions from there on. The wizard will then generate key' +
          'system for the TMC PRO PGP.'
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
    end
    object Finish: TTabSheet
      Caption = 'Finish'
      TabVisible = False
      object LMDLabel3: TLMDLabel
        Left = 76
        Top = 25
        Width = 86
        Height = 30
        Caption = 'Finish...'
        Font.Color = clBlack
        Font.Height = -24
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        FontFx.LightColor = clWhite
        FontFx.Style = tdPColorRaised
        ParentFont = False
        Transparent = True
      end
      object Label14: TLabel
        Left = 94
        Top = 102
        Width = 279
        Height = 53
        AutoSize = False
        Caption =
          'The wizard will spawn out to the DOS enviroment to give control ' +
          'the the PGP system. This has to be done via the PGP.exe which so' +
          'lely can create valid keys.'
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
    end
  end
  object Button5: TButton
    Left = 174
    Top = 276
    Width = 72
    Height = 17
    Caption = '<< &Previous'
    Enabled = False
    TabOrder = 1
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 251
    Top = 276
    Width = 72
    Height = 17
    Caption = '&Next >>'
    Default = True
    TabOrder = 2
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 329
    Top = 276
    Width = 72
    Height = 17
    Caption = '&Finish'
    Default = True
    Enabled = False
    TabOrder = 3
    OnClick = Button7Click
  end
  object Button8: TButton
    Left = 97
    Top = 276
    Width = 72
    Height = 17
    Caption = '&Cancel'
    TabOrder = 4
    OnClick = Button8Click
  end
  object Panel1: TPanel
    Left = 0
    Top = 2
    Width = 73
    Height = 336
    TabOrder = 5
    object LMDLabel7: TLMDLabel
      Left = -8
      Top = 15
      Width = 76
      Height = 296
      Caption = 'PGP setup'
      Font.Color = clBlack
      Font.Height = -64
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      FontFx.LightColor = clWhite
      FontFx.Style = tdPColorRaised
      FontFx.Angle = 90
      FontFx.PosX = 2
      FontFx.PosY = 294
      ParentFont = False
      Transparent = True
    end
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'PGP files|*.pgp;*.pub;*.sec|All files|*.*'
    Title = 'Select file containing private keyring...'
    Left = 372
    Top = 23
  end
  object OpenDialog2: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'PGP files|*.pgp;*.pub;*.sec|All files|*.*'
    Title = 'Select file containing public keyring...'
    Left = 372
    Top = 51
  end
  object MainMenu1: TMainMenu
    Left = 343
    Top = 23
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object Exit1: TMenuItem
        Caption = '&Exit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
  end
  object AppException1: TAppException
    ErrorLog = 'PGPsetup.log'
    UserName = 'PGPsetup.exe'
    ShowExcep = False
    Left = 318
    Top = 24
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 600
    OnTimer = Timer1Timer
    Left = 286
    Top = 24
  end
end